home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
tipi
/
t.tpi
< prev
next >
Wrap
Text File
|
1993-11-02
|
621b
|
33 lines
define menu
# ( -- choice)
# ( valid$ -- )
0 cursor
begin
inkey$ ucase$ # valid$ key$
len instr *
dup
if dup drop$ endif drop$
until
1 cursor
enddef
cls
" [E]dit, [L]ookup, [R]un or [Q]uit"
print$ cr cr
" TIPI Programmer's Workbench X"
print$ cr
" Version 1.0 / \"
print$ cr
" / \"
print$ cr
" Current File: " print$
row column 14 +
command$ parse$ drop$ ucase$ print$
locate "/ + \" print$ cr
" / + \"
print$ cr
" / O \"
print$
"ELRQ" menu port? 4 * + bye